home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 8 (Internal Edition) / Apple R&P Lib Internal v8.0.iso / 3-Presentations / Markets / K-12 Education / HyperCard in Education / Jekyll and Hyde Help / background_5255.txt < prev    next >
Text File  |  1990-02-20  |  12KB  |  437 lines
  1. -- background: 5255 from stack: in
  2. -- bmap block id: 5545
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. On OpenStack
  8.   --show message box
  9.   --put "Loading..."
  10.   --lock screen
  11.   --repeat with Counter=1 to 277
  12.   --  go to card counter
  13.   --  put counter into field "PageNumber"
  14.   --end repeat
  15.   go to card 1
  16.   --unlock screen
  17.   hide message box
  18.   hide menubar
  19.  
  20.   put 0 into card field "MultNumberWrong" of card id 84491
  21.   put 0 into card field "MultNumberCorrect" of card id 84491
  22.   put 0 into card field "VocNumberWrong" of card id 84491
  23.   put 0 into card field "VocNumberCorrect" of card id 84491
  24.  
  25.   put 0 into card field "Right" of card 299
  26.   put 0 into card field "Wrong" of card 299
  27.  
  28.   hide field "comment"
  29.   set the scroll of field "comment" to 0
  30.   choose browse tool
  31. end OpenStack
  32.  
  33.  
  34. -- part 5 (field)
  35. -- low flags: 01
  36. -- high flags: 0000
  37. -- rect: left=389 top=84 right=100 bottom=418
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 0
  41. -- font id: 3
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: PageNumber
  46.  
  47.  
  48. -- part 2 (field)
  49. -- low flags: 80
  50. -- high flags: 0007
  51. -- rect: left=54 top=4 right=68 bottom=420
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 0
  55. -- font id: 22
  56. -- text size: 12
  57. -- style flags: 256
  58. -- line height: 16
  59. -- part name: comment
  60.  
  61.  
  62. -- part 7 (button)
  63. -- low flags: 80
  64. -- high flags: A004
  65. -- rect: left=375 top=261 right=284 bottom=512
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: Vocabulary Creator
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   ----------------------------------------------------------------------
  77.   -- Hidden fields = A, B, hidethebackground, numberoftries, and
  78.   --         theanswer
  79.   -- Hidden buttons= Radio1, Radio2,theword
  80.   ----------------------------------------------------------------------
  81.   get the number of card fields
  82.   put (it+1) into FieldNumber
  83.   domenu "New field"
  84.   set name of card field FieldNumber to "A"
  85.   set the rect of card field "A" to 67,0,355,34
  86.   set the style of card field "A" to rectangle
  87.   set showlines of card field "A" to true
  88.   set textfont to Courier
  89.   set textsize to 12
  90.   set textstyle to bold
  91.  
  92.   get the number of card fields
  93.   put (it+1) into FieldNumber
  94.   domenu "New field"
  95.   set name of card field FieldNumber to "B"
  96.   set the rect of card field "B" to 67,33,355,67
  97.   set the style of card field "B" to rectangle
  98.   set showlines of card field "B" to true
  99.   set textfont to Courier
  100.   set textsize to 12
  101.   set textstyle to bold
  102.  
  103.   get the number of card buttons
  104.   put (it+1) into buttonnumber
  105.   domenu "New Button"
  106.   set name of card button buttonnumber to "Radio1"
  107.   set the rect of card button "Radio1" to 48,0,68,34
  108.   set the style of card button "Radio1" to radioButton
  109.   set showname of card button "Radio1" to false
  110.   set autohilite of card button "Radio1" to true
  111.  
  112.   domenu "New Field"   -- Put script into the first radio button
  113.   add 1 to fieldnumber
  114.   set the name of card field fieldnumber to "TheScript"
  115.   put "On Mouseup" into line 1 of card field "TheScript"
  116.   put "set the hilite of card button Radio1 to true" into line 2 of card field "TheScript"
  117.   put "set the hilite of card button Radio2 to false" into line 3 of card field "TheScript"
  118.   put "End Mouseup" into line 4 of card field "TheScript"
  119.   get card field "TheScript"
  120.   set the script of card button "Radio1" to it
  121.  
  122.   add 1 to buttonnumber
  123.   domenu "New Button"
  124.   set name of card button buttonnumber to "Radio2"
  125.   set the rect of card button "Radio2" to 48,33,68,67
  126.   set the style of card button "Radio2" to radioButton
  127.   set showname of card button "Radio2" to false
  128.   set autohilite of card button "Radio2" to true
  129.  
  130.   put "set the hilite of card button Radio1 to False" into line 2 of card field "TheScript"
  131.   put "set the hilite of card button Radio2 to true" into line 3 of card field "TheScript"
  132.   get card field "TheScript"
  133.   set the script of card button "Radio2" to it
  134.   -- put script into the second radio button
  135.  
  136.   choose field tool
  137.   click at the loc of card field "TheScript"
  138.   domenu "Clear Field"
  139.  
  140.   domenu "New field"
  141.   get the number of card fields
  142.   put it into FieldNumber
  143.   set name of card field fieldnumber to "HideTheBackground"
  144.   set the style of card field "HideTheBackground" to rectangle
  145.   set the rect of card field "HideTheBackground" to 48,0,68,67
  146.   domenu "Send Farther"
  147.   domenu "Send Farther"
  148.  
  149.   choose browse tool
  150.   add 1 to fieldnumber
  151.   domenu "New field"
  152.   set name of card field fieldnumber to "TheWord"
  153.   set the rect of card field "TheWord" to 364,10,507,46
  154.   set the style of card field "TheWord" to rectangle
  155.   set showlines of card field "TheWord" to true
  156.   set textfont of card field "TheWord" to Courier
  157.   set textsize of card field "TheWord" to 12
  158.   set textstyle of card field "TheWord" to bold
  159.   choose browse tool
  160.   click at 367,15
  161.   type "   The Word:"
  162.  
  163.   domenu "New field"
  164.   get the number of card fields
  165.   set the name of card field it to "TheAnswer"
  166.   set the rect of card field "TheAnswer" to 364,52,489,70
  167.   set the style of card field "TheAnswer" to rectangle
  168.   -- A,B
  169.   show card field "TheAnswer"
  170.  
  171.   domenu "New field"
  172.   get the number of card fields
  173.   set the name of card field it to "NumberOfTries"
  174.   set the rect of card field "NumberOfTries" to 364,85,489,100
  175.   set the style of card field "NumberOfTries" to rectangle
  176.   put "" into card field "NumberOfTries"
  177.   hide card field "NumberOfTries"
  178.  
  179.   domenu "New button"
  180.   get the number of card buttons
  181.   set the name of card button it to "NoPageTurn"
  182.   set the rect of card button "NoPageTurn" to the rect of bkgnd button "Page Turn"
  183.   set the style of card button "NoPageTurn" to transparent
  184.   set showname of card button "NoPageTurn" to false
  185.   choose browse tool
  186.  
  187.   show bkgnd button "I'm done with this Question"
  188. end mouseUp
  189.  
  190.  
  191.  
  192. -- part 10 (button)
  193. -- low flags: 80
  194. -- high flags: 8003
  195. -- rect: left=400 top=194 right=216 bottom=512
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 0 / 0
  198. -- text alignment: 1
  199. -- font id: 0
  200. -- text size: 12
  201. -- style flags: 0
  202. -- line height: 16
  203. -- part name: Script for Real
  204. ----- HyperTalk script -----
  205. on mouseUp
  206.   get card field "NumberOfTries"
  207.   if it is empty then
  208.     show card field "A"
  209.     show card field "B"
  210.     show card field "HideTheBackground"
  211.     show card field "TheWord"
  212.     show button "Radio1"
  213.     set the hilite of card button "Radio1" to false
  214.     show button "Radio2"
  215.     set the hilite of card button "Radio2" to false
  216.     show button "done"
  217.     put 1 into card field "NumberOfTries"
  218.   end if
  219.  
  220. end mouseUp
  221.  
  222.  
  223.  
  224. -- part 12 (button)
  225. -- low flags: 80
  226. -- high flags: 8003
  227. -- rect: left=400 top=105 right=127 bottom=512
  228. -- title width / last selected line: 0
  229. -- icon id / first selected line: 0 / 0
  230. -- text alignment: 1
  231. -- font id: 0
  232. -- text size: 12
  233. -- style flags: 0
  234. -- line height: 16
  235. -- part name: Script for RealII
  236. ----- HyperTalk script -----
  237. on mouseUp
  238.   hide card field "A"
  239.   hide card field "B"
  240.   hide card field "HideTheBackground"
  241.   hide card field "TheWord"
  242.   hide button "Radio1"
  243.   hide button "Radio2"
  244.  
  245.   get card field "TheAnswer"
  246.   If (it="A") or (it="a") then  -- if he chose the first radio button
  247.     if (the hilite of card button "Radio1" = true) then
  248.       add 1 to card field "VocNumberCorrect" of card id 84491
  249.       put "You're Correct!!"
  250.     else
  251.       add 1 to card field "VocNumberWrong" of card id 84491
  252.       put "You're Wrong!  The correct answer was A.  Press the mouse"
  253.       lock screen
  254.       show card field "A"
  255.       Unlock screen with dissolve
  256.     end if
  257.   else                          -- if he chose the second radio button
  258.     if (the hilite of card button "Radio2" = true) then
  259.       add 1 to card field "VocNumberCorrect" of card id 84491
  260.       put "You're Correct"
  261.     else
  262.       add 1 to card field "VocNumberWrong" of card id 84491
  263.       put "You're Wrong!  The correct answer was B.  Press the mouse"
  264.       lock screen
  265.       show card field "B"
  266.       Unlock screen with dissolve
  267.     end if
  268.   end if
  269.   hide button "Done"
  270.   wait until the mouseclick
  271.   lock screen
  272.   hide card field "A"
  273.   hide card field "B"
  274.   unlock screen with dissolve
  275.   hide message box
  276. end mouseUp
  277.  
  278.  
  279.  
  280. -- part 14 (button)
  281. -- low flags: 80
  282. -- high flags: 8003
  283. -- rect: left=394 top=209 right=235 bottom=512
  284. -- title width / last selected line: 0
  285. -- icon id / first selected line: 0 / 0
  286. -- text alignment: 1
  287. -- font id: 0
  288. -- text size: 12
  289. -- style flags: 0
  290. -- line height: 16
  291. -- part name: Delete Question
  292. ----- HyperTalk script -----
  293. on mouseUp
  294.   select card button "VocabularyQuestion"
  295.   domenu "Cut button"
  296.   show button "Radio1"
  297.   select card button "Radio1"
  298.   domenu "Cut Button"
  299.   show button "Radio2"
  300.   select card button "Radio2"
  301.   domenu "Cut Button"
  302.   show button "done"
  303.   select card button "Done"
  304.   domenu "Cut Button"
  305.   show button "nopageturn"
  306.   select card button "nopageturn"
  307.   domenu "Cut button"
  308.   show card field "A"
  309.   select card field "A"
  310.   domenu "Cut field"
  311.   show card field "B"
  312.   select card field "B"
  313.   domenu "Cut field"
  314.   show card field "Hidethebackground"
  315.   select card field "HideTheBackground"
  316.   domenu "Cut field"
  317.   show card field "TheAnswer"
  318.   select card field "TheAnswer"
  319.   domenu "Cut field"
  320.   show card field "Numberoftries"
  321.   select card field "NumberOfTries"
  322.   domenu "Cut field"
  323.   show card field "TheWord"
  324.   select card field "TheWord"
  325.   domenu "Cut field"
  326.   choose browse tool
  327. end mouseUp
  328.  
  329.  
  330.  
  331. -- part 8 (button)
  332. -- low flags: 80
  333. -- high flags: A004
  334. -- rect: left=324 top=318 right=342 bottom=512
  335. -- title width / last selected line: 0
  336. -- icon id / first selected line: 0 / 0
  337. -- text alignment: 1
  338. -- font id: 0
  339. -- text size: 12
  340. -- style flags: 0
  341. -- line height: 16
  342. -- part name: I'm done with this Question
  343. ----- HyperTalk script -----
  344. on mouseUp
  345.   hide card field "A"
  346.   hide card field "B"
  347.   hide card field "HideTheBackground"
  348.   hide button "Radio1"
  349.   hide button "Radio2"
  350.   hide button "NoPageTurn"
  351.   hide card field "TheWord"
  352.   hide card field "TheAnswer" -- The user should never see this one
  353.   hide bkgnd button "I'm done with this Question"
  354.  
  355.   domenu "New button"
  356.   get the number of card buttons
  357.   set the name of card button it to "VocabularyQuestion"
  358.   set the loc of button "VocabularyQuestion" to 60,117
  359.   set the style of button "VocabularyQuestion" to transparent
  360.   set showname of button "VocabularyQuestion" to false
  361.   set the script of button "VocabularyQuestion" to the script of bkgnd button "Script for real"
  362.   set the icon of button "VocabularyQuestion" to 21060
  363.   set the rect of card button "VocabularyQuestion" to 35,114,85,151
  364.  
  365.   domenu "New button"
  366.   get the number of card buttons
  367.   set the name of card button it to "Done"
  368.   set the style of button "Done" to roundrect
  369.   set showname of button "Done" to true
  370.   set the script of button "Done" to the script of bkgnd button "Script for RealII"
  371.   set the rect of card button "done" to 186,73,286,95
  372.   hide card button "Done"
  373.  
  374.   choose browse tool
  375. end mouseUp
  376.  
  377.  
  378.  
  379. -- part 18 (button)
  380. -- low flags: 00
  381. -- high flags: 8001
  382. -- rect: left=474 top=138 right=186 bottom=510
  383. -- title width / last selected line: 0
  384. -- icon id / first selected line: 32462 / 32462
  385. -- text alignment: 1
  386. -- font id: 0
  387. -- text size: 12
  388. -- style flags: 0
  389. -- line height: 16
  390. -- part name: HELP
  391. ----- HyperTalk script -----
  392. on mouseUp
  393.   push card
  394.   go to stack "Jekyll and Hyde Help"
  395. end mouseUp
  396.  
  397.  
  398.  
  399. -- part 20 (button)
  400. -- low flags: 00
  401. -- high flags: 8001
  402. -- rect: left=442 top=27 right=74 bottom=512
  403. -- title width / last selected line: 0
  404. -- icon id / first selected line: 11645 / 11645
  405. -- text alignment: 1
  406. -- font id: 0
  407. -- text size: 12
  408. -- style flags: 0
  409. -- line height: 16
  410. -- part name: History Index
  411. ----- HyperTalk script -----
  412. on mouseUp
  413.   global returncard
  414.   go to returncard
  415. end mouseUp
  416.  
  417.  
  418.  
  419. -- part 21 (button)
  420. -- low flags: 00
  421. -- high flags: A002
  422. -- rect: left=16 top=319 right=340 bottom=76
  423. -- title width / last selected line: 0
  424. -- icon id / first selected line: 0 / 0
  425. -- text alignment: 1
  426. -- font id: 0
  427. -- text size: 12
  428. -- style flags: 0
  429. -- line height: 16
  430. -- part name: Return
  431. ----- HyperTalk script -----
  432. on mouseUp
  433.   global returncard
  434.   go to returncard
  435. end mouseUp
  436.  
  437.